<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>20</cardCount>
<cardID>2957</cardID>
<listID>12062</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on saveitplay harpsichordanswer"Save this stacks text to a TEXT file?" with "Yes" or "No"if it is "No" then exit saveitset lockscreen to trueset cursor to busyput"Saving to TEXT file."go to first card of bg id 3454open file anIntroToMIDI.TEXTrepeat for number of cards of bg id 3454write return to file anIntroToMIDI.TEXTwrite field topic to file anIntroToMIDI.TEXTwrite return to file anIntroToMIDI.TEXTwrite "....................." to file anIntroToMIDI.TEXTwrite field info to file anIntroToMIDI.TEXTwrite return to file anIntroToMIDI.TEXTwrite "_____________________" to file anIntroToMIDI.TEXTgo nextput msg & "." into msgset cursor to busyend repeatclose file anIntroToMIDI.TEXTgo to cd id 2957hide msgset lockscreen to falseset cursor to handend saveiton openstackif the version < 1.2 thenbeepanswer"This stack need HyperCard 1.2 or later"go homeend ifglobal AutoCompactlock Screenpush cardgo to card 1 of this stackget the short name of cd button id 33if it is "∆ Auto Compact: On ∆" thenput true into AutoCompactelseput false into AutoCompactend ifpop cardunLock screenend openstackon closestackglobal AutoCompactif AutoCompact is true thenif the freesize of this stack > 0 thenshow msg at 20,306put"Compacting Stack...please wait..."domenu"Compact Stack"hide msgend ifend ifend closestack</script>
